function makenewpath()
global CONTROL
pathnew = uicd; % get a base path to look at
if(~isempty(pathnew)) % cancelled out?
    sf=getmainselection; % do this only for the control selection...
    pathnew = [pathnew '\*.*'];
    flist = fuf({pathnew}, 2, 'detail'); % get all the files on the path
    flist = unique(flist); % reduce to uniques... just in case.
    fnl={};
    for i = 1:length(flist)
        [fpa, fna, fext] = fileparts(char(flist(i)));
        fnl{i} = [fna fext];
    end;
    for i = sf
        k = strmatch(CONTROL(i).filename, fnl);
        if(~isempty(k))
            fp = fileparts(char(flist(k)));
                CONTROL(i).path = fp;
            disp(sprintf('File(%d) %s path set to %s', i, CONTROL(i).filename, fp));
            else
            disp(sprintf('File %s not found in directory/directories', CONTROL(i).filename));
        end;        

    end;
end;
